#$Source: Volumes://MATEOR/prlserverapi/Define.pm$
#$Revision: 0a$
#$Date: May 19, 2012$
#
#--------------
# PrlServerAPI Copyright Matthew Caswell, 2012
#--------------
#

# Define PM, contains functions for defining, pushing, and pulling
# 'constants.'

use strict;
package Define;

#
# Define::String(STACK, VALUE, name);
#
# Pushes a string constant onto a stack
#

sub String {
  my($mstack, $value, $name) = @_;
  $mstack->{$name} = $value;
  return $mstack;
}

#
# Define::pull(STACK, name);
#
# Pulls a constant from a stack
#

sub pull {
  my($mstack, $name) = @_;
  my($r) = $mstack->{$name};
  return $r;
}

1;
